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MONITP. SRC **#*# 3/9/79 ***** 4;00;00 P. M. 


\oMlT0^ 


♦TITLE "MONITOR 


MONITP. BRC #**#* 3/9/79 


4:00.00 P.M; " 


CONSTANT EQUATES 


PUTT XT - 
GETCAn - 
PUTCAR « 
IN1MLL * 
INIMLH . m 
CR > 

0000 » 
WRITE 
READ 

STATC » 


407 

• f9B 
41 

457 

452 

493 


M GET CHARACTER" CIO COMMAND CODE 
-PUT CHARACTER- CIO COMMAND CODE 

JtiLIlALilgri l fi .Jt8H.JH6_ 

INITIAL mem lo high byte 
ASCII CARRIAGE RETURN 
GOOD STATU S CODE 
WRITE COMMAND 
READ COMMAND 

STATUS COMMAND_ 


0070 : 'V$\vv* -CLEAR SCREEN.CODE -v : V -V: V 

0092 v ; * is■ CTRLC » ^fe.492 £> ^ vJ S > KEYBOARD COPE FOR../CONTROL jCf ^ 1 : . , 


CASSETTE END OF FILE CODE 
LONG IRO TYPE CODE 


. 0000; £ PP W \v: • • 


i THE FOLLOWING EQUATES ARE IN THE CARTRIDGE ADDRESS SPACE. 


/.-• '• ', • • jk'*h&K#fyp%4lltfr* •/•^•■>»l» < tO>i>Tllli>Oe jwb «a AR6 8006y9ffF« ; I36K CflNfrlQ. ^P.y^Vv r! fe>-•■'•••% •••< ’ .'■•■• . 


"A« CART' ADDR'S ARE AOOO-BFFF (36K COMF10. ONLY! 
“A“ CART. ADDR*8 ARE BOOO-BFFF MBK CONFIG. ONLY) 


V' • " HFFA "W+a-r* ' CARTRIDGE COLP BTARf ^PDREM:’••^^’ V-' ’ . _ 


CART *-*+1 
CARTFO #-*+1 
CARTAD »—+3 


CARTRIDGE AVAILABLE FLAG BYTE. 
CARTRIDGE FLAG BYTE. BIT O-FLAQI. 
2-BYTE CARTRIDGE START VECTOR 


•■.:• V ■ CARTRIDGE 1 FLAG* ACT tOW DEFINttlOHB V . ’•. V V. uL2±ZL 1^. ■ -’Vk.- • .-. . :V . 


ACTION IF SET 




RUN CARTRIDGE 

NONE 

BOOT DOS 
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HUM) M»R ***** H0N1TP. SRC 


IOEF 4B 
I OFO 20 E4 


3/9/79 


4:00:00 P. H. 


. BYTE M K" 
MOR O KEYBDV 


TDLI-EN - _ IDENT-TBLENT-1 HANDLER TABLE LENQTH. 

' * v n m m. > do tut McnaAOPB ■ ***** . • •• -'«•' 
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HdNMtiR 
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m : ■ 

M25 78 V • 

1- i Oi. AO Afl 

PWRUP 

SCI 

LDA 

#Q , ■ 

DISABLE IRQ INTERRUPTS 
CLEABJrfARMSTARLEL&fl — _ - 



' 

ot 

......1.1 . 

1-128 85 08 

1 12A 08 

i. i in ad ' pp 

PWRUP1~ 

BTA 

OLD 

1 DX 

UARHST 

JUFF 

CLEAR DECIHAL FLAG. 




o [ • 

lLll , _. Tr -.,t_ig!D ftg rr ,,. . 

... 1-120 9A , - -i^vvv 

; , 1-12E 20 3f F2 

■ *5 ^-v'■■?*-. ’ i- 

TXQ 

068 y> 
JCD /| ; 

' : v'sPECL,.<> 

■"’ MAR Of 

,SET STACK POINTER -Vi f V:? 

'CARTS I doe SPECIAL CASE? ft ?«** r.'- ■ •: 

' < DO HARDWARE INITIALIZATION. ■ 

V'yV- * 

’• ' ■ ■ '■■,■ 4 : *• ■ 


O 

1-134 A5 08 

1-136 DO 28 


I_I_ Vf Pll ■mill 

LDA 

ONE 

■ ^ finilll m . ....- 

UARMST 

ZOBRAH 

IS IT MARH3TART? 

YES. ONLY ZERO 08 RAH 





I UNb 4UOW«n ”— 

i i&Xja v- : v-tXi 4 ’-' jAV ^7: 

■ — —?i?-—SvHvLs"-.. ^ tkllTtii ur BAM printer 


F13B A9 00 
H3A AO 08 

±iac_aaj}4 


INITIALIZE RAH POINTER 
CLEAR MEMORY LOC. 



i Hour VECTOR TABLE FROH ROM TQBAM_ „ .... i.,. ■ .■ .... rwrw mrvr-r!rs ■? 


Fl7« A2’ PP8 V8v LOX u ^ #42* - /<-i-4 % 

H 70 ; M>a ^. ; ^>VCTABU)(: =v>‘V;^ 1 ■ 

F1B0 9D 00 02 :'' r ! ’ • ’ STA ■ • INTABBi X ••r'V.ii.’- DUW', V-j..;' ' ■ ^—— 

<?•*:' A# ; JK- &fA. 



FI 84 10 F7 
IflA 30 94 F2 


t’ 


MQ9 98 


BPL 
«JBR 
CL I 


MOWEC 

,.P S f? A H._ 


C 'i 

(' 


DO O. B. RAH SETUP 

enable irq interrupts 


- ■ rv ' -t^TT 
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MOM)IHR 


n i 


c r 


I 


LINK HANDLERS 


I1BA AB OE 
MSCBD E3 ^0 
M8F 9D 1A 03 

-L 1 ? 8 .£A. 


M93 10 F7 


_ LDX 

’ NXTENT LDA 
; 8TA 
: ; Qgx 


HTBLLEN 


TBLENT. X READHANDLER TABLE ENW 

HATABB. X > PUT IN TABLE 


BPL 


NXTENT 


DONE WITH ALL ENTRIES? 


f 


o 


§<■ 

t 

to 


1 - 

lo 

O 

o 

0 

O 

O 

© 

0 

9 

0 


' J ;■ '?; I ;') t:' *: ■ !>';*■' 


■ ’ i * 


"'■ * ■ ■■■ ! '■;• ’• 1 >-■ l• * 

, j-r i ; ..*• t- •. {• *. : .• • i;; V ./* * ? ■ ■ < . -' \ 




t 199 A2 00 


INTERROGATE CARTRIDGE ADDR. SPACE TO SEE WHICH CARTRIDGES THERE ARE 
J*0 


El97 S& TBTDAT WZ? CLEAR"fB^CART :: ■■■ 

M 99 B6 OA•;0TX;liV2<i-TRAMS? ./<;CLEAR *!*A* SART.* f*U«'V??' ; ••;= -i'V' 

CPX #*90 RAN IN "B* CART. SLOT? 

BCS ENDBCK 

LDA CART-42000 NO. 

Twa^prmsstr~ 




; M9g AE E4..0Z 
119E EO 90 
I1A0 BO OA 
MA2 AD FC 9F 



BWSfei'. cwuouiy 

incM^Tstoat 

? J8R ,rw- 'CBINI -1 



y ) 

> 

n 
O 
o. 
* *} 
o 
o 

c i 

o 

o 


I IAC AE E4 02 
I IAF EO BO 


ENDBCK LDX 
CPX 


RAMSIZ 
««B0 


SLOT? 





rICB 9D 49 03 
I ICE A9 OC 
hinn 9n 4A nn 


8TA 

LDA 

BTA 


ICBAH#X 
«*C 
ICAXla X 


SET BUFFER POINTER TO OPEN SCREEN EDITOR 
SET UP OPEN FOR INPUT/OUTPUT 







MDB 4C 29 FI 
IIDB E8 
FtDC DO FD 


JHP 
8CRN0K INX 
BNE 


PWRUP 

8CRN0K 


RETRY PWRUP IF ERROR (SHOULD NEVER HAPPEN!) 
SCREEN OK. 60 WAIT FOR VBLANK TO 
BRING UP THE DISPLAY 









riEI 20 B2 F3 


I DO CASSETTE BOOT 

JSR C8B00T 


CHECK. BOOT. AND INIT 




. ) 


i 
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4:00:00 P. H. 


p.\ 

r 


%itUxK'i' CHECK, TO SEE IF EITHER CARTRIDOE WANTS DISK BOOT 
FI E4-A9 Ofc... ' : ■ LDA ....TRAMS * -■^- ■.■.C.H££K-ftQIH^MJ&Utg£B- 


o 


n 


I 1E6 05 07 
I 1EB FO 12 
I 1EA A5 06 


MEC FO 03 

; l*tEE AD FO W«r:h]M<' f d., : , 

_J 1F1.A6_.Q 7 . . ... toAl- 
I 1F3 FO 03 
I 1F5 OD FO 9F 

i i ra 2 ? .oi- 


ORA 

BEO 

-kBAu 


JJQBLL 


BEO 

(.DA 

JJUL. 

BEQ 

ORA 

.OWL 


TSTDAT 

NOCART 

iRAttai. 


:-J N0A1 
i CARTFO 
_IBJJQA.T_ 


NEITHER CARTRIDGE LIVE8 

“A" CART? —_ 


^PFFy-i/ 7 NO; 

> GET CARTRIDGE MODE FLAG 




NOB 1 
CARTF0-G2000 

Jkl 


) • •■■ ^ :bo'Di9 K B O OT < ^ ?*■ • - . , : -— 


NO 

ADD OTHER FLAG 

DOES EITHER CART WANT BOOT? 


BOOT. AND INIT 



i I 


EvWF^ 

r-w 
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o L 
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I27C 89 06 
JJZE_BQ.I3... 

I 280 60 


- - 8TA TRAM8Z :: Y INCR. *AM POINTER BY 4K. 

• 1 B NE HOWHCH. • 00 FINPHO M HUCILBAtL__ 

ENDRAM RTS 


■. ■ _■ '. I ,, ; . ... 


HARJJMABEJUimAlJlAIllM. 


P2B3 AA WWjii ' ■ ..v. W ^-' v -K-"b G :■}?. Vv'VI.. 

■, 1284 :90 00 BO^^aRCH* } BTA -*•/* *0000. X Pfr > I-'Si*?:.-ii'-rc 5 ' v : <f. *}& ■■ ■ ;.\r 

• 1=387 9D OO D4:'."- fiTA ■'» 40400. X ■ YY l^L ' -■ ' • *> '".Y-'- =: ..' '. •'• : . ' _l__i___:_ 


28A 9D 00 02 
280 90 00 03 


STA *0200.X 

BTA *0300. X 


o ! 


'•'”»*• ' • V -\:V Vffr. #*».*■' ''.A <’'*•'«■ *" "•\ l ! ■ -y 1 ■ ■’• » ••• . ■’■■ v 1 '. .-< " 1 ^V( • i.' ir'4.: V % •_. V.1V- ^ Y. y ...;.’ - ’/ **. t • 7-.f * ' . • _. _ -- 


0. B. RAM SETUP 




I-29B 80 E6 02 
I-29E A9 OO 
I 2A0 80 ES 02 


BTA MEMTOP+I 

LDA «0 

STA MEMTOP 


INIT. MEMTOP ADDR HI BYTE 


o ; 


O K^^^raciirW 

fe«i*.fu - H;?T:pacA do 


I 2AA 80 E8 02 STA MEMLO+1. INITIALIZE MEMLO ADDR VECTOR 

I-2AD 20 OC £4 J8R EDITRV+*C EDITOR INIT. 

ESS IS Vtfe 7 ■■" 

P2B6 ao aC ; :E4^ff^^^;^UBR.'^Sv PRlNTV6*0|> ) : |i^PBiKrER- ; MANOLtR:'4Ntt^Sf^p^^^g|>^ 1 %fp^^^^^ j ^y^,y.,V . ■ I- • 
1-289-20 4C : E4> , -:^^^^'^SR';-?^fcA8ETV-»«C:-4^:^'CASSETTE HANDLER INItifofcvff v.^/v •-: . 

I 2BC 20 6E E4 JSR CIOINV CIO INIT. 

I 2BF 20 69 E4 JSR 8I0INV SIO INIT. 1 

B 3 m Wsft s^SggkaEiSateag n .... 


JSR CIOINV 

JSR SI01NV 


CIO INIT. 
810 INIT. 


' UEH.m NOREY-ft START KEY DgPB£S8£DTJ-?. :vi^--^ : ^ 


I 2CC £6 4A 
I2C£ 60 


INC CHEY 
NOKEY RTS 


YES* SET KEY FLAG. 


P '.: '-- *J U t i J -, • t .' ' •_..^.L---^—lL'_ r-. .s^ ... : .a. ^TL.ii --?■£-.■■•.. .a ‘ V f..j. . ,a 1 . .-■* a: ^tnig. j.; . . . i . l . ■ " ■*■ . * 


I 2CF A3 00 
I 2DI FO OA 


BOOT LDA WARHST 

BEQ NOWARH 


WARN START? 


■ J j-.im-i! »’cUJ V~ , M| M . ■ I n.n i - r .. 1 UWft -r PUWI f . . I ftffl , . . . .... ^ ... „ . .„„ p „ ■ „ .- ,. M ■y.f,. p !■>■■■ ***li» J .l»F JLi. N» i li uj» 

y-fca^A? F2D9 20 ?E': JSR ^ DIN1 YEQi ,WErINIlB.-Mft„8flartfffl6 


I 2DC 60 
I 2DD A9 01 
I 2PF 0P 01 
I 2E2A903 


NOINIT RTS 

NOWARM LDA 111 

BTA DUNIT 

LDA BBTATC 


-■ ::-v:.; . VK::.','* 
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n ; 

! 

of 


I-SE4 BD 02 03 
I-2E7 20 33 E4_ 
( 2EA 10 01 
I 2EC 60 


8TA 

JSR 

BPL 

RTS 


DCOMND 

.J§EI.nsl 


DOB DOT 


BET UP STATUS COMMAND 
0 0 DO D ISK ST ATU S 


IS STATUS FROM SIO GOOD? 

NO. 00 BACK UITH BAD BOOT STATUS 


l ; 2£D A9 00 
I-2EF 80 OB 03 

-L2F.a.ft?...0L 


DOBOOT 


o 


so 


I 2F4 BD OA 03 
I-2F7 A9 00 

jgFg-se-Qi.fla, 


LDA 

BTA 

-LDA- 


STA 

LDA 

■ STA.. 


■BO 

DAUX2 

.ML 


DAUX1 

BBIJFFL 

.PEUELfl. 


BET SECTOR # TO 1. 


I 2FC A9 04 
F2FE BD 09 03 ; i'. 
13 0 1 20 9D F3 


Jiifili. 


LDA 

BTA 

JSR 


ttBUFFH . 
DBUFHIV 
CETBEC 


'BET UP DIFFER ADDS 

.. PET . 3 fi €TBS - 


I 304 10 OS 
1-306 20 B1 F3 

,L3&?-A5-ia 

I-30B FO “ 
I-30D 60 
F30E A2 


BPL ALLSEC 

BADOSH U8R DSKRDE 

m . .. .c assbi 


STATUS 0. K. ? 

NO. 00 PRINT DISK READ ERROR 


■ • ;;v ».*Ti ;?.?&>••’&ve,sr-Yf8* ; 'v > 


READ A BUFFER BYTE 
STORE IT 



o 


I ) 


(.) 



FSttA.AiKB 
F33C.FO 03 
T-39E 20’9P F3 


XBOOT 


CA89BT 

i xbodt ■■r&y&4*8 

OETSEC ■ 


cassette boot 

YES. PET EOF 


’ SECTOR AGAIN. 

■ RECORD. BUt DON'TOSE -»T. - Plb s 9iai3M*(tl!* 


I 361 20 6C F3 
f-364 BO AO 
1366 20 7E F3 
F369 £6 09 


JBR 

BOB 

JSR 


BLOAD 

BAODSK 

DINI 


00 EXECUTE BOOT LOADER 
IF BAD BOOT. DO IT OVER AGAIN 
CO 1N1T. SOFTWARE _ 

Show boot SUccesS : 


• Y" , J 


INC 


BOOT? 


o 







MliN) |MR ***** MONITP.SRC 


I36B 60 




3/9/79 


4.00:00 P H 


BOOTAD 


BOOTAD+I 


MP (RAMLO) 

HP (D08INI) 


F303 AO F* 


DISPLAY DISK READ ERROR H60 






PUT LINE ON SCREEN AT PRESENT CURSOR POSITION 


ADD* 



t 385 8A 
F386 A2 00 
I 300 9D 44 03 


F30C 9D 40J03 


PUTLIN TXA 
LDX 




r-39l 9D 42 03 
1-394 A9 FF 
I 396 9D 48 03 


IVtiii ji|i|il'MTIHT7llillir~T 1 




ICCOH*X 
MFF 
ICBLLfX 


“PUT TEXT RECORD" COMMAND 
SET BUFFER LENGTH 



DISKM 

CASSETTE BOOT ? 

RBLOKV 

BREAD 

VE8. GO TO READ BLOCK ROUTINE 



3* E-TTS -T >lflf »yi 
jc TW.VH *} i 




mi 



F3B2 AS 08 
r 3B4- FO OA 


CHECK FOR CASSETTE BOOT It IF BO. DO BOOT 


C8BOOT LDA WAHhBT WARMSTART? 


CSB0T2 


DA BOOT? GET BOOT FLA 


i [■■■■'’ , i' 
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Al ifW*| Ifl 

SYMBOL 

030E 

TABLE 7 
ADRESS 

001>4 

AEE 'J 

pflOO ■ ALLPOT D20B 




» --Ul i 1 *l 1!U— 

t Al i U\ L 

1 AIAMIR 

— yjv6 .... 
F30E 
02FB 

, 12 K)iWWM .. 

ANTIC 

ATAN 

D400 

BE43 

APPEND 

ATRACT 

p-HUP Jfc i in** ■ i LWIg*. •* 7B * ■ 

0001 APPMHI OOOE 

004D AUDC1 0201 



r", 


rtUlCP D 2 03 AUPC3 P203 .. AMDC4 DBQ7- 


AUDF4 0206 


i WIKI D800 . AU0Fa':t)2O2 , lt ' AUDF3,.< 0204 ..•'Wt-T ;y;,. , 

■ UADhKH F306 . • BADIO&IV.-OOQA,;^:BADMOD; .0091 ^BFENHl-^ 0039 ."'i ; '>*' . v : 

£__IU:1 ljLlI-.003<--^lTtiaiL. 006E .^BUACllB„-Eg2A ..-— L i . - .., ik —-—— --- 

ni H|K» F230 BLKBDV E471 BLOAD F36C BOOT F2CF 

III H MV 0009 BOOTAD 0242 BQTBCR 02BF BPTB 0030 

WM n1 nQBO BRKKEV 0011 

QOO0 


WH-I M i 0004 : ;buffl.. 

IIUHII.il 0032 , BUF8TR. 006C u />| 

CARTA)) B FF E CAR TCS i BEFA-i 


CAUI IV E440 
CARMI1 004B 

, ItlltMlU—fl2EE- 


CASFLO 030F 
CASSET 0043 
„CB A W L 


UUI wvn wntkfl '- 

fe- bufrflv 0030 fe. Bufrhi.; 0033;;4"; WZU? U %■ ‘-' ■ • 

,'?■£. CAINI F239 s CART . ■BFFC VK:,: *!*?-'. v 

CARTFO;- BFFD' < CA9DUF 03FP -7 ■* -V 



* (;IH VIC 023A , i., CDTMAt;i]032A‘*?K<;DTMAa 
l (.|>|UI-4 022C : ^rCDTHF»%0?2E^-Ct>TMVlV 

L CIOMVU oaic CPTMV4 - Q g|g I^CCTMVtL- 

<T|| J 02F2 CHACT 02F3 CHACTL D40i 

CdHAfl 02F4 CHBASE D409 CHKERR 008F 

CHRORO EOOO 


CHAR 02FA 
CHK8NT 003B 



CIKilNM 02F0 
CNtMMV E47D 
DAUXI 030A 


CRSROR 008D 
CSTAT 0209 
DAUX2 030B 


CSBOOT F3B2 
CTIA DOOO 

nnRFfT MAi 


CSB0T2 F3C0 
CTRLC 0092 
HBUFUI 0305 


! a 
o 
o 
o 
o 
© 
tfj, 

4 • 

-4 

S 1 


; PlIUFLO 0304 ';'.fe.PBVtHI.iy' 


1K.0MNI) 0302 Sj»5l>D6Viq.. 

DI-LETE 0021 rn DELTAC : 6077 *&•' PELT AH 



1*11(1(11 
Ilf OUT 
HI UK 

W iinn . 0403 
^iVPMAtk f OOBB 

: ml Am n ooil 

DUK1NV £433 
I«1KUH 001A 
in im o 0306 


DERRL 000D 
D1NDEX 0037 


DERROR 0090 
DINI F37E 


-OES 


F10D 


DFLA08 0240 
DIRECT 0002 



DBKORO EOEA 
DBPFLG 02FE 
DUNIT 0301 


DSKRDE F381 
DBTAT 004C 
PUNUSE 0307 


E4o6 ;,y', kEXf‘^6otii 'V: enboot-f33A 
Ki? KNMICK FlAC v^,ENDPT 0074 ENDRAM. : F2SQ 5-V 

E FIJF • noaa * FOFERR 00BB f ERRFLQ ? 023F1V 


DSKTIM 0246 
DBTATS 0303 
DVSTAT 02EA 

enBXckTTibF 


y7 ? “ r * 1 *’*1 


1*7*1 ON 
FAI»I> 


OOEF 

DA66 


EBTSCH FI73 
FA8C D0E6 


EXP DDCO 

FCHRFL OOFO 


^ pCFLQ 02A2 



EXPIO 

FDIV 


DDCC 
DO 20 


Ft (4* 

P03F FILDAT 

02FD 

FfLFLO 

0207 

FILLIN 

0012__ 



?%.rKi»0P 
* : ^v- PHCNIIT 

' DDBD .’ FLOOR, 
ooFc.;».FMOve 
0092 ' <t? > FORMAT ' 

DD09 i 
ODD A 
0022 

S FLDIP 
pM82P0 
FPt 

DD9C jFLDIR : DD98 

0043 ’,;V‘ FHUL ^ OADB ; ="XV^i.. W V 

D9D2 ; FPREC 0006 / V : - ‘ v\ 

Vv> v •; ; ' MU: 


FPfiCR 

03E6 FPSCR1 

OSEC 

FPTR2 

OOFE 

FRO 

00D4 



1 U J 

OOEO FR2 

00E6 

FRE 

OODA 

FREO 

0040 



FRMI-RR 

OOBC FRX 

OOEC 

FSCR 

05E6 

FSCRI 

OSEC 



r im oi* 

DDAB FSTOR 

DDA7 

FSUII 

DA60 

FTVPE 

003E 
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o 

|G 

i 

J 

h 

io 


o 

o 
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o 

o 

o 

0 

© 


) CLTCAM 

0007 

OETCHR 

0007 

OETREC 

0009 : 

GET8EC 

F39D 

PUIAMU 

02E0 

GOOD 

0001 

OPRIOR 

02AF 

ORACTL 

DOID 

CUiM M 

DOil 

GRAFPO 

DOOD 

GRAFP1 

DOOE 

0RAFP2 

DOOF 

uut\\ -!•:» 

D010 

HARD I 

F281 

HATAB3 

031A 

H1TCLR 

DO IE 

HOI )M 

0051 

H0LD2 

029F 

HOLD 3 

029D 

M0LD4 

02BC 

. uni i»r* 

02 BD 

"■ hOlBcTT 

~aoTc~ 

HOUMCH 

"T263 

HPOSHO 

D004 


IIPIJNMJ D005 HP0BM3, 0006 

HPfJliPI 0001 HPOBPa D002 

MAX) 034A ICAX1Z 002A 

MliAII 0343 ICBAHZ 0025 

■Mm It 0349 1CBLHZ 0029 


HP 0BP3 D 003 
0340 


ICCOM 0342 ICCOMT ,0017 

JODNOZ 0021 ICHIO 0340 

ICP III 0347 ICPT H Z 0027 


ICAX2 
ICDAL 
1 CBLL 0348 


H8CR 0 L 0404 


0344 


ICAX2Z 002B 
1C0ALZ 0024 
ICBlLif 002B 


ILNI'K 
MM-Nl 
in nun 


034C 

F0F2 

00F3 


ICSPRZ 002C 
IDENTH OOFO 
1N1MLH 0007 


ICCOMZ 6022' ■: ICDNO 0341 

ICHIDZ 0020 JC1DN0 002E 

1CPTL 0346 1CPTLZ 0026 




V ifr 


*f ' - y ■' 


ICSTA 0343 
IDENTL OOF2 
INlhLL 0000 


ICBTAZ 0033 
IFF D9AA ' 

W9CI" 9939, 


lMnilll- 00F3 IN1MLH 0007 INIHLU OOOQ |^|.H uu^w - - 

j INO0A1 , .0070 p/V INTABS £ p200 INTEMP- P22D,p,;’lNTINV E46B ^ p? P 

' " INTHlio •• E6D3. : : lNTZfl 8 ■/ >0010 INMFLO >, 02 B 6 >vV..;\ IOCB - ■ 0340 i : t‘ 

t IHCHAn 0020 1QCB9Z 0010 : - I0CFR6 OOFF ! I>1BQEN_^ P gO E ‘ V* i f ; ;r Pf V , P ,, V ; ^ 

’ fl ,.11.1..." nnnf unrnntr Mnno uon A/l^D UnnnOQ C'JPi 






*yA I 


mow D2oe 
Kt-YUnV E420 
I IK MIS* 057F 


KDCODE D209 
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P0T6 D206 
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0207 
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RENAME 0020 









Hi'NMtiR **»«* MONITP. BHC «#**» 3/9/79 «**»* 4:00:00 P.M. 


!j 0 

j c r 

i 

o ( 


n 


RFNFI FUB 

JiliilUNli_QP73L 


RMARGN 0093 

_RI£LfflLl0PJ2_ 
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ROWAC 0070 R0WCR9 0094 
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8C- U1N 
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D20D 

006F 

D008 

D20F 


BERGUT D20D 
BHFLOK G20Ei 
51OT8SLL.S144-. 


0121 t'O D008 SIZEP1 D009 

!M( II D20F SKRES D20A 

JM&1 L. P PPE . .SPECL.. F2 3E- 


SETVBV E49C ;T i SEX 
SI QN0N F2 2 3 ; , y 8IN ^ 


SCRFLO 02BB 
SDL8TL 0230 
SENDEV E468 


SIZEP2 
8KSTAT 
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POOA 

D20F 

.mu 


SI2EP3 
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Of A1 


STATC; '-£0093 
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IHM'IAY HANDLER 

-- 10-30-7B — 

DISPLC 







* 



t ■ 

, ' . ; 


.‘■r- 7 - 

• -t • • P - •• 





oP 

I 3F6 A5 20 

l BEGIN 
t 

DOPEN 

DISPLAY 

LDA 

HANDLER 

ICAX2Z 

OPEN PROCESSING 

GET AUX 2 BYTE _ 





r\ 

( f 

F3F0 29 OF 
f3FA DO 08 

:• V ' ; >-' y ' ' 

Tp^EOEElL.. 

AND * 
8NE 

X6A J—. 

#*F 

OPNCOM 

JSAXUL- 

IF MODE IERO( clear 
CLEAR_!J aA_IMUalll. 

ICAXlZ ■■ ' 

AND -NZP-ilOPE! 1 BIIB - 

/»■' r.V .V- ' . 

V ' . 4 ■; 




o 


I 3FE 29 OF 
I 400 85 2A 
I 4Q 2 A9 00 


AND 

8TA 

JJML 


o v 


>404 85 57 
>40 h A9 EO 


;f &OPNCQH BTA ^ 
i i p. i-DA 


44F 
ICAX1Z 
JKL 


*o 

i° 


I 400 A9 02 
MOD 8D F3 02 

laioe o 2E-.afr 


LDA 

STA 

flTA 


DINDEX 
; 04EO 

jCHBAaJ 


INITIALIZE GLOBAL V0LANK RAH } 


s r.v v :i?: : ^ * • v- \ 


*2 

CHACT 

snMCTL TURN OFF DHA NEXT VBLANK 




O 


■ ) 


T413 A9 01 
|418 B| 4C 



JJIA. 




I 419 03 10 
I 41B 83 10 


ORA POHMSK 

STA POKMSK 

HA 



j o 

F453 A9 91 


OPNERO 

LDA ttBADMOO SET ERROR STATUS___:........ 

urn 

an 

te#{ 

=4»» .88-4C 

-437 OiJ Sl 'p 
-439 A3 M • 

f^f 

llii: 

mm bsfAf 

!S3 

L; 


mL 

ip 

1 

%MuW- : 

&3i 

MiiJ 


c 

€ 

C 

Q 

C 


o 


BC 43 FE 
A92B 


LDV ALOCAT. X ALLOCATE N BLOCKS OF 40 BYTES 
#40 



, 


AO 6F 02 
29 OF 
S3 67 


0PR10R CLEAR OTIA MOOES 
#*3F 


f- 


v ppHy»n , ,*f„,., „ 


•’ 7 t - vri:;vv;-. •>Pj 


r» .. .,.^ 1 , M6( - W 


r g q r n 


TA 







! l. • 

n 

ol 

O 

i o 
o 


JO 


IUM'1 AY HANDLER 


10~30~78 


DI8PLC 


I 470 E0 08 
t 472 90 17 


I 474 0A 
I 479 6A 
I 476 6A 


CPX 


*8 

N0T8 


TEST If 320X1 


TXA 

ROR 

ROR 


0E1 2 LOU BITS 


A 

A 


l477 6A 
I 478 29 CO 
I 47 A OS 67 


I 470 A8 
I 47D A9 10 
t 47F 20 21 F9 


•ROR A ' ‘ 

AND v ft$CO NOW 2 TOP BITS 
PRA_::_ g NTfg+l.— ,_„_: 


M82 £0 66 
1*404 DO 09 
I486 A9 06 


TAY 

LDA 

JSR 


*16 

D0SUB 


SUBTRACT 16 MORE FOR PAQE BOUNDARY 


I 408 80 C8 02 
I 400 8C 6F 02 
I 40E AS 64 


NOT 8 


cpx v-.'TrtT --v test mode ti. \ ^v , r i : , 

BNE N0T8 V IF NODE • U ‘ V ^ V-' 

LDA #6 PUT 0T1A LUM UALUE INTO BACKQROUND RE0I8TER 

__ C0L0R4 

STY ©PRIOR STORE NEU PRIORITY 

LDA ADRESS SAVE MEMORY SCAN COUNTER ADDRESS 


’•f 6. ■; 


MOE A5 64 _ LDA APRESB SAVE MEMORY SCAN CQUNTEH AUlmtBg - - - - 

f - . tin 21 

- iiini »a tt * VAa urniHJT UA1T PHO WFVT UM AMU BEFORE HESSINO 


I 496 AD OB D4 
1 499 09 7A 
I 49B DO F9 


WAIT FOR NEXT VBLANK BEFORE NEBSINO 
WITH THE DISPLAY LIST 



I*4e4 A9 60 
F4E6 20 17 F9 
F4E9 A9 42 


k- : ao 17 p? 









I> INI'IAY HANDLER 


10-30-78 


DIBPLC 


F4EE >8 
_L4EE_65_ftC- 
I 4F1 63 66 
I 4F3 85 66 


clc - •. ••• • 

AOC OPNTMP 

BTA OPNTMP 


F4P7 BE 5 1 W LDX ^ ^Vno HDLE.V CET NUMBER OF DISPLAY LIST ENTRIES, 

' P4FA A3 9! •• X'.-!^'-DOPE^:^ LDA ; HOLDI : -STORE. ■&?' -x V ■'V V "• • 

t:At:r nr\ i«T •• *?:■ JSR STORE ' t- _ iliLl • ' .: - -■ - --—-1—-i-i-i------ 


4FF CA 
300 DO F0 


DEX 

BNE P0PEN3 


\ fta, . UHfi., r , yinvfcfl - } ., w I . : n ,j> s - .u • • 


I 30A A5 6A 

B O I50C 38 

. l SOD E9 IQ-,— 

5 ! K . rsop ao ;i*WEj 

*0 ■' ■/■■;:-■', 1512 AO.OO-i^X 

I > - -• ' 1-514 20 t7 Ft i 

; 1517 A9 4F 

lo 1-319 20 17 F9 

1 151C A3 51 

i j: 1 '*.; 1 1 ':.x;P31E 

1 o ■; :•'••■:■? fc»2t : 

' : P922~ 

I 324 A5 59 

O 1326 20 17 F9 . 

>■529 A3 58 


LDA RAMTOP RELOAD MEMORY SCAN COUNTER 
SEC 


LDA r tt«4F(ANTIC) RELOAD MSC CODE 
JSR STORE 

D0PEN4 LDA HOLDI DO REMA1N1N0 DLE *8 


D0PEN5 LDA BAVMSC+I POLISH OFF DISPLAY LIST 

JSR STORE 

_LDA BAVMBC_■ 


I 332 20 17 F9 
I 333 A9 70 
1-337 20 17 F9 


JSR STORE 

LDA *470 24 BLANK LINES 

JSR 8T0RE_ 


° -‘'^m-saP AS : 6«£flii®£l!M^ LDA^:^^ X- 


I 341 BD 30 02 
1344 A3 63 
I 346 BD 31 02 


W UvfxTF349' A9 .79 . U* l$$? 

o i^;ftV^vp94B , 9*'\lMMfiGSKkmm 4f*4' 

^■’K>94E A3 64 ^ lda x-- 


f330 BD ES 02 
I 333 AS 63 
I 535 BD E602 


BTA BDL9TL 

LDA ADRE88+I 

5Er?35lSii?*|h i SirpiEaps^^ ix- g x ■ x 

jgg»tfiSgaE-tSi£^^^ 

BTA MEMTOP 

LDA ADRESS+t 

STA MEMTOP*1 .. 'i n ■ M 1 x xw- . ■'* ' ■ > »■■'«> . ■■ . h Mji " ■ . y u. ' .Mwr.y-r ' ■-.if ' . ' u -iy-f* PTTTT l p 




r 5SE B3 63 
> 360 AD 3i 02 

ta&3L2fiLii££ 

F566 AD 30 02 


BTA ADRESS+1 

LDA SDLSTL+l 


3 m 9:17 

S t-96C A3 4C 

] F36E 10 07 

I # F370 48 

1 _ > 371 20 FC 

jl f • > 374 68 


o -T7 - 'jsnfi* store...•■;.■’• ■■•• .h- -'•>•; :r^-.o-n - 

g 4C ••' t m& L. 7 g FRBOR OCUR RED ON ALLOCATION,- OPEN -THE .EDITOW^'^r 


BPL D0PEN9 

PHA SAVE STATUS 

JSR EOPEN OPEN THE EDITOR 

PLA RESTORE STATUS 
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IMM'IAY HANDLER -- 10-30-78 — D1SPLC 




1 973 AB 

IJ576_60___ 

*1 377 AS 2A 
I 579 29 20 
I-57D DO OH 
1-37D 20 B9 P7 
1-380 BD 90 OS,. 

1-585 80 91 02 
I 588 A9 22 
I 58A OP 2F Q2_ 
1580 SD 2F OS 
1-590 4C 21 iFh-t 


TAY AND RETURN IT TO CIO 

RTB !•' _ ■ ■ " _ ___>__ 

00PEN9 Ida Tcaxiz test clear inhibit bit 

AND #*20 

_ BNE DPPEN7 - ■ 

- ■ • ' ubr clrbcr cleAr screen 1 '' •'" . . 

BTA TXTROM AND HOHE TEXT CUR80R (AC IS ZEROI 

‘ > L D A LHA R ON _ - -^-1-- 

BTA TXTCOL 

D0PEN7 LDA #*22 EVERYTHING ELSE IB BET UP 

ORA BOHCTL 60 TURN ON PhACTL ... . ,.. ,^, -T- r 

bta .sdMctl- ■■ ^ .V ! .V - :j ; . : v. 

) ,v vIMP '-'A- <*! RETURN ; V . i 


If [ 


I 393 20 96 FA ©ETCH J8R RANGE OETCH DOES 1NCRSR. OETPLT DOESN'T 

T399 So 32F8"M®'v^i^ ^ f J s R L I NAT AC ^ CONNER tt NTERNAL/fODE, TOAt A* 

I 5A2 20 47 F9 CETPLTJ9R CONVRT CONVERT ROW/COLUNN TO ADRE8B 

I5A3 B1 64 LDA 1ADREB8).Y 

■ NaI 4A tBR fit?MW >DUN - TfcM* J*M/ 


TW^W r W^- :^;TNATA^ tbN0E^^NTERNAL.;fODE, lp#tW 1 1■. ' P 


r-sAc 

I - ’ I-5AE 




! O 


I 5AF 10 F9 ‘ .oril " 6HIFTD 1 UNCONDITIONAL! 

I'-SBl BD FA 02 , 8HIFT1 STA CHAR 

I 5C4 C? 00 _ CMP #0_ REBTORE FLAPS ALSO 


rw : :: '• ; 


r SB7 8D FB 02 
I 5BA 20 96 FA 


OUTCH BTA ATACHR 

JBR RANGE 


& :•£:£>. *?■!?• tWbfQti rtf oHmm WTCHAtL dA-^^ ata(:HB U 
•••: : • rsco C9 cm* - bclrcod^ 


1502 00 06 
I 304 20 B9 F7 
I 507 40 21 F6 


OUTCHE 

CLRBCR 

RETURN 




l-SDl 20 30 FA 
F5D4 4C 21 F6 
I-5D7 20 EO F3 


JSR DOCRMB DO CR 

JMP RETURN 

0UTCHB JBR OUTPLT_ 



l-SEO AD FF 02 OUTPLT LDA 6BFLAQ 


•LOOP HERE IF START/STOP FLAG IS NON-O 


I-5EB CA 

| FSEC 10 F9 

I5EF AD FB 02 
' p '"'. t:~FSF l AB ” 


DEX 

BPL CRLOOP 

LDA ATACHR CONV ERT ATA9CII(ATACHR) TO INTERNAL!CHAR) 

TSV——- 6 avI'XTa 2 hr 11 


1 S ' / ”• i} - -i -■< 1 








III!>1*1 AY HANDIER — I0-30-7B 


DISPLC 


I 63E 20 B3 FC 
1-641 20 60 FA '• 

I 644 AS 68 . f 

f646 DO 34 
I 648 AS 54 
I 64A BS 6C 

I 64C AS 55 _ 

I 64E 85 &D "T 
F650 20 E2 F6 Wi 
1-653 84 4C 
I 655 AD FB 02 
I 658 C9 98 


I-65A FO 12 


D 

I-ABF. ao 83 F<R?)Ki 
F662 AS 63 


I 664 C9 71 
I 666 DO 03 
I 668 SO OA F9 


» .. ! :■ 

I 

i 

* 

EGETCH 


' Wj EOETCl ■ 


SNAP . 

ERANQE 1 ■' •^ ^ r f ■ *• - . 

BUFCNT anywino lN T»* BUFFER? /,-•* 

E QETC3 YES" "■ L^_ J L. 

""rowcrs no. so save buffer start address 

BUF8TR 

COLORS , „ - 

BUFSTR*! ; " A*. •" V'V.'- 

KOETCH LET '8 FILL OUR BUFFER ; v > 
PSTAT 'C SAVE KEYBOARD STATUS 1 S- 

ATACHR TEST FOR~CR 
BCR 

a 


•W ti 


•/. : \*V- 

’* • I'*"- ’k, 

F66E ao M 
F671 ao 00 


1 674 A3 6C 
1 676 83 54 
1 678 A3 6D 




siMi® 


BUFSTR RETURN A CHARACTER 
ROUCRB 
BUFSTR*1 




I 680 C6 6B 
1-682 FO OD 
I 684 AS 4C 




* F6S8 20 93 
F68B GD FB 0 





BUFCNT AND RET 
EQETC3 

AT IF ERROR* LOOF ON SQETC7 UNTIL BUFFER 18 EMPTIED 





I-69E 4C B3 FC 


F6AI 6C 64 00 


J6RIND JMP 



^CURBOR^THEH 


AND RETURN THROUOH RETURl 

J8R TO THIS CAUSES USR INDIRECT 


m&w/w. 




I 6AA 20 SS FA 
r6AD 20 E4 FA 
r 6B0 20 8D FC 



i 6BB 4C B3 FC 
I 6BE AD FE 02 
F6C1‘ OD A2 02 


OSS USR 
_ J8R 


ERETN 
E0UTC3 LDA 
ORA 




ERANOE 

0 FFCR8 TURN OFF CURSOR 

T8TCTL TEST FOR CONTROL CHARACTERS <1-1 IF CTL1 • 

f-S. ouTCHE }: -r^y, • y:~ r..r. «*•*•• -.1 > :-M* > ■: «•„ hrtC f -- A-M 


f*ZMZ r 


AND RETURN THROUOH RETURl 
D8PFLQ DO DSPFLO AND EBCFLO 
E8CFL0 _ 






M 


i*V 



























































































IDU'IAY HANDLER 


10-30-78 


DISPLC 


o 






1779 A9 BO 


CONTROL CHARACTER" PROCESSORS 


1 770 0D A2 08 
I 77E 60 

-mE. c tJi- 


ESCAPE LPA »»S0 SET ESCAPE FLAG 


I 701 10 06 
1783 AE OF 02 
I 786 CA 


6TA 
:■ RTS ■ 

ZmaQUE s es — 


BPL 

LDX 

_OEJL 


ESCFLQ 

_BQ«GfifL 


COMRET 

OOTSCR WRAPAROUND 


F7B7 
>7B9 

I7BEA5S4 
1-790 CD OF 02 
» 7?3 9Q.f& 


rCRfiBKt -JLtlfiL 

LDA 
CMP 
BCC 


86 54 " -VUPDNCM BTX ROWCRS . ’f‘ . j-; ; f-V - • 

4C SC FC - ^ tOMRET v JHP ^xSTROEO v COLVERt BOM ANp CO^ Ttj LOOCOL AND R|ETURH^ V i. L .» 
E6 S4 :*•?>! ~ : CR6RPl4 "t - 



i.7Ar as 55 LDA ' C0LCR8 __ ______ - .--.-—. ' .- ...— llt<P . r ,.^.--— 

[: V: . •; vi F7AE C» 1 S3 

K'WSaSJSES'M 


i 



m&ni. 


LFRTCM UNCONDITIONAL TO COMMON STORE 


\ 

i 

i o 

i 

i o 

(0 
® 
© 

o 



I-7C1 CB 
I 7C2 DO FO 
I-7C4 E6 6S 


F7W A6;ia I 


INY 

BNE 

m 


CLRBC2 
APqES8+| 


f V; 


£Z£A-g^. EA 




I-7CC A9 FF 
I-7CE 99 02 02 
I-7D1 CB 


CLRSC3 


LDXiq 7 ;? ADRESB+I; , ; . 

m ;vMi»AMtop: ♦>.*&*'* m M 

**FF CLEAN UP LOGICAL LINE BIT HAP 
LOQHAP.Y <Y 18 ZERO AFTER CLR8C2 LOQP> 








Y.- rt. 

■?- 

Ys'VY’fo :• 


r -’4/ 

x &v 


r702. CO .WikWu 
F7P4 90 ,Ffimf 
F7D6 26^4:F r4N»4yH0Mg- ■ 


LDA 

BTA 

INY 


I-7D9 83 63 
T-7DB BS 6D 


W’^THR-~ 

BCC ^; CLRBC8 
J8R V CQLCR 


T^i. 


STA 

STA 


LOOCOL 
BUF8TR+1 


PLACE CPLCRB AT LEFT -EP6 &. 


. 1 ti. t ; » , » t 


iv. >»> >,4 NB> y ? y ' < 

’; • i '-vw 4 */ 

; • ; *v --V, 


Trrrr Fr 

^!\XW: 


r ttt*?’ ir. r . 

-V:^: 




r7nn A9 no LDA #0___...., .—— B . ■■■■■,.—•—; ■ * »,♦ »• ■ ^ 

• 

r • 

F7DF 83 34 •• 
F7EI 83 36 

1 7E3 83 6C 

r-y^Vr 1 yvr iJ . 

”8TA"^‘ 
STA 

STA 

ROWCRS 
COLCRB+1 
BUFSTR _____ 

. 

• 




ty?- P : .) 


I 7ES 60 


o*n<rmre 
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IDM'IAY HANDLER -- 

10-30-78 — 

DIBPLC 


□ ; i-7ea fo ai : 

* 1 -7Fr AH S9 

■ B8A 

BEQ 

LDA 

B8i v..!---'■■■ . v ■ • , ■-. 

C0LCR8 E6FT EDGE? _ ; .. _ -- -- 


,r 

1 7fZE C3 52 

1 7F0 DO 03 

I 7F2 PO 73 FC 


CMP 

BNE 

JBR 

LMARCN 

BS3 NO 

DEETIM YES. SEE IF LINE SHOULD BE DELETED. 


io 

V r 1 ft C W r v-f V V 

I 7F5 20 99 F7 

1 7F8 AS 55 
f-7FA C5 53 

•• . 883 

*' T JBir 

LDA 

CMP 

: CRSRLF* '■ •• - ' •. , ' • : • 

COLORS : ,./; . -:.; : ; V ■' ■ , ^ ■•;■:"/= • : .;\ , * :v . Yv - v --’ ■ ; ' >;■ 

••• RMARON :----- 


| 

O 

1 f» n vi j wvi 

i 7f C DO 07 
I-7FE A5 34 

1 BOO FO 03 


BNE 

LDA 

BE0 

B82 

R0WCR8 

BS2 _ - -----.-^, T? — 


o 

1 

V U\iw 1 w Vu 

1*002 20 7F fT 
F0O5 A9 20 
F807 0D FB 02 

V-VJ" ^ * v 
iv;^. *82j. 

• «f ’ '.*?• - • . <• • 

"jBfi' 

EDA 

8TA 

'*• " ,J J Q0gR||p -> ' \'A '■' . . T ;' • > 

SsV'': «*20 ■ .. MARE BACKSPACE'; PE8T8UCTIVE ,:.:HV’ ; v-' { ./'i ; > . 

.i-jlf . ATACNR ■•?’"•'" " ' ' v 1-^—:—___ 


§o 

1 BOA 20 E0 F5 
( BOD 4C DD FB 

I BI0 20 AA F7 

B31 

TAB 

JSR 

JMP 

JSR 

' OUTPLT 

DOLCOL A»» RETURN 

CR9RRT BEGIN SEARCH _—~—r— 


t 

lo 

1 

1 

, FBI9'CD 99 

' FQ17 DO OA T-V. 

IHi 

■^bA ? ^'fcbLCRS'v.tt#, mw* -m •; 


1-819 80 34 FA 

1 8!C 20 20 FB 
I-BIF 90 02 


J8R 

JSR 

BCC 

POCR DO CARRIAGE RETURN 

LOQOET CHECK IF END OF LOOICAE LINE 


«o 

loir IV Wfc 

f-eSi bo 07-^ 

. (-823 as A3 '• u 

>02S 20 25 f FB- 



. • ’ ■" 

'V'-' ,. 

o 

1 028 90 E6 

1 B2A 4C DD FB 
IB?n AS A3 

TAB2 

SETTAB 

BCC 

JMP 

LDA 

" ' TAB NO. 80 KEEP LOOKING j 

DOLCOL COLVERT ROM AND COL TO LOOCOL AND RETURN 


i- 

1 

o 

« 

'• --''PB2F «■ 06; 

/EDA 
r JMP 


»i:: v»:. v *' L-=u. 1 • , 

|o 

-LB37~56~§S*Fc 

rB3A 20 A2 F9 
I-B3D 89 70 

IN8CHR 

JSR 

JSR 

STA 

■^"' L " frfl/fllfl ' - -- ' ' n ' '. “ 

GETPLT GET CHARACTER UNDER CURSOR 


1 

1 

, © ! 

^V--' » S41 BD 9B 02,; 

•V , •;#'■ o* : F044 -iO-FFU'R^ 

PlSi 

pnjxr 

*#TA 
' JSR 

W3IB- 


; 

O 

-rlirs3~£3— 

1-849 48 

I-B4A 20 DC F9 


TEST 

PHA 

JSR 

‘ ..CoficfdC“BXvE LtSGcbL-' IP AFTER INtriaA L00C0L 18 

< THAN IT 18 NOW. END LOOP 

INCR8A SPECIAL INCRSR ENTRY POINT 


. ■ 

© 

w Win fcv w i r 

W? '.iwr M «iS 

i:Rsh nA AC 

m^aR'Shuta inbchs roui+^y^.'?* -.;V "/>-• ^IriMggjai 

\U- "■' rV 1 - V. 1 

© 

1*052 AS 7D 
1*854 48 

F85S 20 A2 F9 

IN8CHI 

LDA 

PHA 

JSR 

IN8DAT KEEP GOING 

GETPLT -—- 


© 

^858 05 

tibrnk'****- ** 

■ f=BSB 40 44 F0 

Stpis 

Pta' 

.-.PEA 

:JMP 


© 

1 85E 20 A8 FC 

FB61 CE B8 02 
i.R^A nn n4 


JSR 

DEC 

BMI 

PLACR8 

8CRFLG 

1NSCH5 IF SCROLL OCCURRED , — rnTn T n 

^ a. 1 v •!. >■* . 1 • - ia.■. 

© 


7®- 

?BNE 
' JMP 

''j-^HOWCRS^HOVE: CUD60R UP. ' v ^ : '-- :r >h$ 

rfe,Anfrn(.i ASuCTT ROU ANI1' DOL-'TO LOGCOL'AND RETURN ? .1 ' ^ •-• *?* -/ ^-1- 

• 

r ^ i*XLJZ ^LggLJii aa. -1.=^ 

IBAD 20 9D FC 

1 

1 

DELCHR 

JSR 

PHACRS 


■ 

V POI# BCv/ 71# ■ v 

fc v f< nV k'870 20 47 F9 

DELCHI 

JSR 

""“’ciiNvmt Gfet bAfAia-tHe n»Tlf1W! tWbUR ’ ^ J 

'; • ' </-v- ••.' ■>'■ - *.\ .j'' '■ ■ \ 

: ■ , "t" 
















lO'.il'IAY HANDLER 


10-30-7B 


DISPLC 


V. : 

J 

J 

o : 

r 

O 


IB73 AS 64 
_±fl75_05_&0. 


I 877 AS 65 
I B79 BS 69 
-l:Q70-j6a_ita. 


■ LDA ADRE88 

_8IA___0ftyAPR_PASi6_AME@ajrQ-jyS®iJHHB!£JIQ-Eyi_l?AIA- 

LDA ADRES3+1 

5TA SAVADR+I 

LDA . LOfiCOL-- - -;—-- 


C\ 


FQ7D 48 
f 87E 20 04 Ff *W 
jiBQLJiQ_:■. i- 


PHA 

J6R 

„PLA_ 


INCRBB PUT CURSOR OVER NEXT* CHARACTER 


I 803 CS 63 
I 884 80 to 


CMP LOGCOL TEST NEW LOGCOL AGAINST OLD LOGCQL 

BCB DELCH2 IF OLD. 0E. NEW THEN QUIT 

LDA RDHCR9 IS ROM, OFF S CREEN?----- 


I-BBS CO BF 03 X CMP W>- ! 'RQT8CR, ;. ..,• i ,y'-‘,/crr 

I-BB8 BO 09 ' BC8 44-6 DELCH2 -hYES. SO QUIT: • V ; 

f’HRD ao A d FT' 1 ’ ’•’•■i t'' ; *\.V : ■' ,<br ■‘••■•.tQETPLT OET ■ DATA UNDER CURSOR . : - 

I 890 AO 00 LDY #0 

1892 91 68 BTA < BAVADRI * Y PUT IT IN PREVIOUS POSITION 

f B94 FQ DA 


■ 



iV*** 

" Vf ,*i 1 


fBD7M 

F8D9B4 

FflPS.M 


I ADD 9B 
FBDE 38 


t u rg _ LfC.Ui.in UPW uul.vul. pm W ..r niiP = * -m u-1-r n |i — ■ -i — I 1 j __ 

H W* RowcRS'FPut. cursor' 

84PELLIB LDV R0HCR8 v> V ~ * v. :> * ff * r L lL V . • ?" ' • * . "& \flfcgf if -ft V ' : .. . 


DELLIi TYA 
EEC 


c 

c 



r*BDF 20 23 FB 

JBR 

L02GET 

©IJT NE^T BIJ , r 



C 


H*t2 <w : 

f “■■ 72 .. 

"r r^'.'v- .»: • IQ . < *. -.•♦•• .Vv 

^ PHP U 
TYA »■ 
CLC 

/.’v 





IBE9 69 78 

ADC 

#120 




m 

• 

18E7 28 

PLP 




; : .- 

W 


1 8E8 20 04 FB 

JSR 

BITPUT 

WRJTE JJXWEIL PRESENT BIT 




•• I 1 

I-8EB C8 

INY 




-- • ' \ ' < • :'i 

■■ “ ' V '.: ,1 

l 


a 























MlN'IAV HANDLFR 


I0-30-78 


DISPLC 


m 


i ROUTINES 

i 

a 


/ DOUBLE BYTE DECREMENT OF INDIRECT POINTER X 
4 ■ INCLUDINO DB SUBTRACT ANp DB DOUBLE DECREMENT 


I 913 A9 02 
I 915 DO OA 


DBDDEC LDA 
BNE 
i 


#2 

DBSUB 


<UNCONDITIONAL) 


j s ii a ijsc' ;i -bti 


STORE RATA INDIRECT AND DECREMENT POINTER ^ •. 

(PLACED .HERE TO SAVE UMP DDDfeC. AFTER • 8T0RE'<\i V *'•’ : : -i -‘V-x 

LBV --DSTAT RETURtlON ERROR:!^ ■ ~ 7 -- 

BNI 8TR0K 

LDY #0 

amPEl ,, STA, lADSEgflltX 



I 94A A5 55 LDA COLORS _:..—. ......bi 

V9& 4B : PHA >:',... -..,m■' ¥ —LL-^, 

:■■ £ is:** i'- -v-»y v fefii 

•■-. r ;iv* ■ .; .^v ^-W:V. -■C'-t A.-. *: :r.i 

ipitf 

v?'^v sv •• .1 


•5 

fi 

i 

li ! 


I 950 20 F3 FC 

I 953 A5 34 
f 955 S3 66 


LDA ROWCRS PUT 10«R0NCR8 INTO MLTTMP 
TA ... NLTj m 


— TrrrTPrrTT rrr — rrrrr rrr^rrrrr 1 7 •• v 

♦I. ■ V Yr^^W r;* : V v 


**.&:*■! - V 

y •'/• V'h •■•« 


F93T a 9 bo 

F959 S3 
F93B A3 


-DA 

BTA’ 


ttO 

MLTTMPfl 
MLTfHP QUICK Eft 


I 95D OA 
I 95E 26 67 
F96d 65 51 


L962 A4 67 


ASL A 

ROL MLTTMP-M 

8 TA HOLD! (SAVE 2X VALUE) 

LDY 


HLTTMP+i 


■W 


i 















UIM'IAY HANDLER 


10-30-78 — 


DISPLC 


n 

n 

o 

o 


to 


\ " • ” ' . 4 : 

1 . 1-964 8C 9F 02 ■ 

> 967 OA 

STY 

ASL 

H0LD2 "" v 

A 






- 

\ j 968 26 67 

HOL 

MLTTMP*1 







1 » 96A OA 

ABL 

A 







1 96U 26 67 

ROL 

MLTTMP*1 







, I 960 18 i . 

CLd 

VV V " ADD IN dX- 

' ?l\ r 






> 96E 65 51 / - 

ADC 

■ •' H 0 LD 1 . V '. v-V* 

■: • ‘ • 

J.' . 

.V* 




1-970 85 66 

■S' -STAviV 

" MLTTMP • '.-••■ ••--• 

. !.. 'v. ■ 






> 972 AS 67 

LDA 

MLTTMP+1 








• 974 6D 9F 02 
1 977 85 67 
1979 *6 & 


ADC H0LD2 

cta HLTTMP^i 

CM'■•’"^.kHiNDErf NtJU (H-ttm*. LEFT DHLIN5 TIME8 TO FINISH 


r~7 


i- 97 E aa - :; ^3-^fcoNva< ? > p6yvw; ■ loop n Tirtee -v£ft y •-.'••••>■• v.. ■>;••; I.:.•••• » ■ ■■- ;- ■ 

30 07 BMI C0NVR2 

06 66 ABU MLTTMP 

bc as FB i^s^iiwvw ?f coV;* 4 PIWB;ji MdiivDlVittBrNCBBi* »t|* account fob ■ fAfitJ^, *VTEB : •-, ' 

AS 35 " *T colcrs ' V.........-' ,. 

• 7 


l 97F 30 07 
I 901 06 66 

> 903 26 67 

1-985 
, I 988 

r m -aajBL 

> 98D A2 07 
I 90F 88 

> 990 30 OA 


_ 

LDX 

C0NVR3 DEV 
BMI 







IHM'IAY HANDIER - l 10 -30-78 — 01SPLC 



I IN CR EMENT CUftBQR <^B_[£I£CI^Q.tHjEMILj PF UNE ANDENBJj E. SCflEStL- 

I 


I 9D4 A9 00 
I 9D& F0 02 


INCR8U 


I-9DB A9 
f-9DA BS 70 
I9DC £6 63 


I 9DE E& 89 
I 9E0 00 02 
t ?E2 ,E6 56 


iNCB SA- 


l.OA 80 NON-EXTENO ENTRY POINT 

J*9p SC SPECIAL CABE ELIMINATOR 

INBOAT 


EDA 

6TA 

-1NQ_ 


INC 

ONE 

INC- 


^°uni ; ,k- v . .• 

• i riocral I1N6CHR ENTRY.efliNlL 


C0LCR9 
1NCR82 DO HIOH BYTE 
COLCRS+k 


_ _ n *™y , LULLI1 3T I , . r 

F9E4 A3 9S''^f^.gt?:iNCWi; LDA.^COLCRB TEBT ENO OF E?NE ; -;J;!:: 

■ •••., jLDX','DINDEH 'iei -Viv 


f 9E6 A6 57'' ■. - "> ' 

f ; ac-g nn on rc^ v. -: ' ' 

I 9EB FO OB 
I 9E0 FO 00 


rr 


• CH? column:*^ ^- TEST taElep"VAUUE. FOB M.V. SfiHEetiJfflBEa 

mxm, tin i*n v C r/lllil 


- 'i' '/* 


' F-9F1 C5. _ 

F9F3 FO 

.r;*: ^ V Bca 


INC2A 
#0 
m cBfla 


DO CR IF EQUAL 
HODE 0? 

. JUST HETJUBtL 


f9fB bo dt 



I 9F7 60 
I-9FB EO OB 
F9F 


I AOE 20 30 FA 


DOCRMS'' LOO LINE OVERFLOM IB SPECIAL CASE 
INCRBI RETURN 


i AI4 30 FA DdCR IB JSR DOCR OET IT OyERMITH. ... imw.'." uy.-r—, --—— 

>••• V FAIR ;lS 

V viV.-i • F A1A A9 78 ’ Ff 

I'xfi! 


i 


:-’.V.- , V.v .. . ‘ . . : . • . • 


I-A1F 90 OB 
I A21 A3 70 


BCC 

i M 


bOCRIA OONT EXTEND IF OVERRUN IB INTO MIDDLE OF LOO LINE 
INBDAT OONT EXTEND IF INBDAT IB ZERO 


W FA28 1R ,& 
j f. FA36 20 ^A9 FB-4vy-riw. •>* v Sv.JBfl.^ 





I A29 
r A3C 
I A2E 


FS3IT 

FA32 

fc&ai 


4C DO FB 
A9 00 
FO 02 


Slpps] 


■ V k 1 r'' ^ 

wswzv 

•ar t 


I-A37 

FA39 

_LA3B 


20 E4 FC ^i .^ POCR 


DOCRlA JMP 
NOBCRL LOA 
BEQ 

TOTTTCoy 

NOBCpf , . BTA 


iHbLIA- _ ..._ . ... , ■ ..... 

raLCOL CONVERT ROM AND COL TO LOOCOL AND RETURN 
NO DOCR WITHOUT SCROLL 

NOBCRt (UNCONDITIONAL) 

* I * j ; AAom I 


S\ 1C. 


y ■ 

. -IV 


r A30 
FA3F 

£AtL 


A9 00 
63 56 

MJ .1 


1 A43 
l*Ai»3 

± M1 


W. 1® 


jfiR 

LDA 

8TA 

XHC, 




'•• •; ’ ? 
• ' ' . 'V , ■V > ; i ; v vV'‘. • J 


NO 

C0LCRB4-1 

..ROHCaS. 




10 09 
AO 04 

Jfi- 


LDX-';' DINDEX V : : . , 

LDY v/^y NS4 - BSt UP SCROLL IrOOP COUNTER 
BIT -y SWPFLO, 







BPL 

LDY 


DOCR2A BRANCH IF NORMAL 


v .| f m.i-'iit; 

V 5 v ; \ v ; ¥-5^ iw 1 * ^ 


FA^e DO 03 


BNE / DriCR2B < UNCONDt TIONAL) 


. *»i i »r „ ■ i p - ,yy « ^ . .r > . T ! ' ? ??* ’*’7* 







/-s 


IMN‘I#\V HANDLED - 10**30-70 — DIGPLC 


l*A4A BD 99 FE 

J_A4DJC5 J54__ 

1 A4F DO 26 
I A51 QC 9D 02 
I A54 8A 
I A53 DO 20 •' 

FA37 A3 7D 

jim? . roji— 

I A15U C9 90 
rA5D 3B 
EASE FO 0| 
IA60 18 
I A6I 20 AC FB 
I A64 EE DO 02 
I A67 C6 AC 
I AA9 CE 9P 02 


D0CR2A EDA 
POOR20 CMP 
OWE 
STY 
TXA 


LDA 

CMP 

SEC 

• 7 deo r 

-v- 1 etc •*; 

3CR4B JBR 
INC 
DEC 
DEC 


N0R0W9. X OET NO OF ROMS 

BOMCRg__ __ 

"incrsT 

HOLDS 

_ PONT SCROLL IF MODE <> 0 

1NCR81 

INSDAT OR JF INSDAT > 0 

1NCRSI__ .. _L.---- 

INSDAT IF INSDAT O *9B THEN ROLL IN A 0 
**9B TO EXTEND BOTTOM LOGICAL LINE 

D0CR4B 'H• ;;>f.-;.:* v ?\* v.A!’ 


BCRFLO 

BUF8TR ROUS MOVE UP BO BUFBTH SHOULD TOO 
H0LD3_;___ 


% FA6F 3B >/ s5 r .v *«W ^ARTIM. LINES. ROLL IN - ,‘- 4 -4 \ vfrty■&. -\: V. ' 

FA7010 EF BPL y ^ D0CR4B A AOAIN IMPAR T I AL L0Q 1 CAL LINE— L . s 1 -i ±±1L. j .- lS L -V 


I A72 AD 9D 02 
rA79 89 94 
I A77 4CDDFB 


LDA H0LD3 PLACE CURSOR AT NEW LINE NEAR THE BOTTOM 
STA RQWCRB 

INCRB1 JMP DPLCOL COLVERT RON AND COL TO LOOCOL AND RETURN 




I A7A 38 
rA7B B9 70 

7SOT 
FA7F 99 70 
FABI B3 ii 
I A83 E3 75 
I A83 95 71 
I A87 60 


SUBEND SEC 
LDA 

mwmWD BBC? 


RDUAC<X 


LDA --ftl y - ftPUAc11 


ENDPT+1 
ROUAC+t#X 




'(ERANQE IS EDITOR ENTRY POINT AND TEST IF EDITOR IS OPEN. 
IF IT I8NT IT OPENS THE EDITOR AND CONTINUES) 


[44^ ft; ( ij. FAB8 ’ C9 )b4i^ 
U- . v .. -v FABD FO 07’y;j 
I ABF A9 97 
I-A9I FO 03 
I A93 20 FC F3 


'ami&M-* msms&i a ■- ■ 


DINDEX IF NODE - 0 

RANGE THEN IT IB IN EDITOR MODE AND OH 
EOPEN IF NOT. OPEN EDITOR 


b^i^S:-rRi«i. CHIPRAHofi CHECK RMARON •••*• COMPARE : 

■y»i-^ , t. , FA9A-B0'02^m;m t ?^fe^.:BCS^t:'RANOSd~ *«»t* RANOE CHECK RM AR ON «*»»» BRANCH OE 1 a- > 

BAD 80 STORE 39 


I A9C 89 93 
I A9E A6 97 
LAAQ DD 99 


STA RMARON ***** RANOE CHECK RMARON 
RAN0E3 LDX DINDEX 

LDA NORQWS. X_CHECK ROMS_ 




i ;V 'ii'\ 

■ - ■ . . : . 




I-AA9 RO 08 
l-AAB DO OA 
FAAD A5 56 
V FAAF PO 13 


BEO v RNOERR ;* .■' '■ 

“CPX NB CHECK FOR 320X1 

DNE RANOEI 6PECIAL CASE IT 

TlfS • RNOOK^S^ Hliw bYTE IS 





r-N 

IDMIrt. i!,* k ’i'I.F.R -- 10-30-78 


DIBPLC 


i °L 

•i o 

i'i 7— 

11 o r 


I A81 C9 01 /. 

.Lona..Dft-i£.. 

I AB 5 FO 04 

1 AB7 A5 56 RANGE1 

.1 A07 po U> —-__ 

I ABB BD BO j -RANCM 

I-ABE C3 55 . y,%-. 


I AC3 FO 00 
1 AC4 A9 01 


RNGOK 


FACB A9 BO i ••«a7.-.'AV 

l-ACA A6 
I A CC B3.ll. 

FACE FO 06 
I ADO 60 


CMP «1 ! ;',A_ 

. -_—l_—--- 

BEQ IF 1. oo CHECK LOW BYTE 

LDA COLLI' • • • OTHERS. NON-ZERO H10M BYTE IS BAD 

BNE RNGERlt — 

LDA ‘ i COLUMN. X CHIXK LOW BYTE . : ,i ’ 

CMP ■ 'COLORS '■■■.!,• 


ltd RNOERR 

..DA WSUCCEB SET 8TATUS OK 

!oa V RBRKABT PREPARE BREAK ABORT STATUS > :/ - .. 

.DX 4V BRKKEY - CHECK BREAK KEY FLAO .f. ; 

ITA -ft-Tu. BRRKEY ’ 'CLE A R* BREAK "i' "-■■■‘S.:-};. A 

JEQ RN0ER2 IF BREAK. QUIT IMMEDIATELY AND RETURN TO CIO 

































Mi:4*1 AY HANDLER —10-30-70 — DISPLC 


I 804 90 0C 


1 806 20 EB FA 
I 809 BO A3 02 
I BOC 05 6E 


I*DOE 90 A3 02 
IB 11 60 


I B 12 20 ED FA 
I 1115 A3 6E 
I B17 49 FF 


BITFUT BCC 


BITCLR AND RETURN 


JSR 

B1TC0N 

LOA 

TADMAP/ 

WMMm 

BITMSK 

8TA , .V TABMAP, 
RTS ‘i. 

JSR 

BITCON 

IDA 

BITHSK 

umm 




1 B20 

A3 54 

1 

LOGGET 

LOA 

R0WCR8 


1 822 

IB 

L01GET 

CLC 



I B29 80 A3 02 
I 82C 23 6E 
ID2E FO 01 


TABMAP, X 

B1THSK 

BIT0E1 






> F8M Ao FA Oi 


I 837 CO 03 
I B39 BO OF 


IgigEMEK 


FB3C 2A 
> FB3D 2A 


I B3E 2A 
f*B3F 29 03 
1841 AA 




HAR^v 


INATAI THEN DONT CHANGE CHAR 




ssamtti 



up 





1 B4A 80 FB 02 

INATAI STA 

ATACHR 

1 B4D 60 

RTS 



• ■ tefe: 


■; 40' BVTE& At' VrHAI^ TOADR 


vi: MOVE 40 BYTES At FRNADR TO’TOADS SAVING OLD TOADS 
•data'In the LlMBUF.nfHfNfiAKiTNExf ?rmadr— 

BE AT LINUUF FOR NEXT TRANSFER A T0ADR-T0ADR+40 


*7jy 

/A, 






































IHM'I AY HANOI I H ** 10 110 *7Q -- UlbPLC 


I-B50 83 63 

. ' 8TA V 

ADRE86+I 

1*1152 A9 47 

___LJi6_iLIMJUE. 

1 ll'i-l FJS 64 

ST A 

ADRESS 

1 036 AO ‘.'J 

UlY 

#39 

L1IUU Ul-6fr--,- 

Wm^mmwnmWm 



f B5A 85 SO 
I B3C 91 6Q 


I 1160 A3 30 
I 062 VI 64 


I B69 10 FI 
| B67 A3 65 




I DAD A3 64 
I B6l> 89 68 


D76 90 02 
B70 E6 67 


0 

8 

0 


I B82 08 
f BB3 98 
f B84 18 


BBB 88 
I BBC 30 04 
I DDE C4 54 


ID93 69 78 
I B97 28 
f B98 4C 04 FB 


I D9D A3 5 


S 


t: 7 BPL * 


IFRHADRliV Vi 


THPCHR 
(ADRESS)»Y 




ia;ur;vum 


BTORg DATA 




ADRESS 

FRMADR 


H0VLI2 

TOADR+1 


EXTEND: EXTEND BIT HAP FROH ROWCRS (EXTEND LOOICAL LINE 




wumm 


EXTEN3 DEY 
BHI 


EXTEN4 


*r; ^ < : ; 


DITPUT STORE NEW LINENS BIT AND RETURN 


J^tXrjC 


CLRLIN: CLEAR LINE CURSOR IS ON 


COLCRS 


$ 1 •>. 





l _ r»w ■*- f 

r BA4 A9 00 
1 BA6 91 64 

... I.DA #0 

CLRLI1 8TA < ADRESS >• Y 

ID Ad BQ ___DEY_: 

t r-r-r - 

« BA9 10 FB 

DPI. CLM-Il 


t 












































I 

hi MM AY HANDLER — 10 I0-7B — DISPLC 


» BAB 60 


i SCROLL: SCROLL BCf 


I BAG 20 rA FA : bghuli wiinm- i —-- - ------ -— - - - 

TB AF AS 59 - LDABAVMBC SETUP WORKING RE01BTERB 

IBB1 89 64 8TA ADRE88 

I Bn 3 A5 59 LDA 6 AVM 8 C+I, , . ...... - y ? .n. .. — - v r - -- 

IBB7 ^0 asfeqROLi>.; ldy , *40 l **.v r K \L^C:;v..’••• 

I BBS A6 6A LDX RAMTOPTE8T FOR LA8T LINE 


I BBB A6 6A 
I BBD CA 
IBBE E4 69 


DEX 

>: ta ti ."T 

*» *-■* —rr?—i-L " • r <»<■ ■ ■ ■* .*«— ,.■ ■■ . 


4 o . 


I BC 6 BO 02 ' 

IBCB A9 00 
I DC A AO 00 

Ti£c ?i 

FBCE E 6 Mtim 
FBDO DO E9 
I-BD2 E 6 69 
t-804 A9 69 
I-BD 6 C9 6 A 

TprwBirn^ 


BC 8 SCR0L2 

LDA *0 VEB SO 8T0RE ZERO OATA FOR THIS ENTIRE LINE 

SCR0L2 LDY_BO • . , .. . - . V m 'run ' i . "T * nT " * 


INC ADRE8S+1 
LDA ADREBS+1 
CMP RAhTOP 





i DOLCOL: DO LOGICAL COLUMN FROM BITMAP AND COLCRB 


1-: - FBE3 B9 91-- - BTA HOLDI “ ! '" 

Q FB£9 A9 91 <. * D0LC01 LDA HOLDI ADD IN ROW COMPONENT 

tore ia .iii ADA #40 


FBEF 69 28 
FBF1 89 63 
F8F3 C 6 91 


ADC *40 

8 TA LOOCOL 

DEC HOLDI UP ONE LINE 


f ; , , i . -. i ■ . - ■■ Ai , T ■ -* ■ ,3 ■ cni CRB 


r-BFB 69 99 
FBFD 89 63 
FBFF 60 


ADC COLCRB 
BTA LOOCOL 
RT 8 __ 


1 - ■ 

*• '‘ - ' — 1 " 1 ™ a ‘ M< nnnuM 1 .: COMPUtE BufFeD COUN I Afif tHfe NUM^R Bf BYTES FROM •. .: V . '•- . 


I DODUMi; COMPUtE BUF^fO UNT A0 IMTBWtiW bF BYTE8FR0M 
I BUFBTR TO END OF LOOICAL LINE WITH TRAILING SPACES REMOVED 


BUFC JSR PHACR 




hlM'l/W HANDLER 10-30-78 — D1SPLC 


IC03 AS 63 

icoa 48 

IC06 AS 6C 
I COB 83 54 




KOC 83 33 
KCOE A9 Ql 


ICI2 A2 17 
1C 14 A5 7B 


tpocot *. * 

BUFBTR START ~ 
ROWCRB 


COLORS 

#1 



DODUFt LDX 
LDA 


NORMAL 


liunnnu 

SMPFLO IF BUAPPED. ROW 3 18 THE LAST LINE ON SCREEN 


LU 6 IQ Q 2 , ’■* •.. >r ' ---c V ’ .i.i ■‘yV.W* ^ • - ■ ' V ' 

FclS E4 S3 R0MCR8V *T U«»T <*«»£«( POBITIdHVg/-.^ 

I -CIC DO OB ’ i ‘i PNE ? UPO BUI A yr ! ••■- 'ai . . ••••' , ■ • ,: -•■ ^ ' ' ■ ■ ' ■ ’ ■ ■ ■ ■' ---- * -- — 1 - - - 

Z “ ' x " _ ' 7 . m a ^/m Mnr 


1C IE AS 55 
I C20 CS 53 


“ LOA ' COLORS 
CMP RMARON 


!j° r 


i r 

*o { 


IC2C E6 6B 
I-C2E AS 63 
I-C30 CS 52 


{£ 23 ■AttaWrtgait^fc 8S#«JSSSifa»l • M WtfUmKiW ff; 


BUFCNT 

LOOCOL 


TES'S t£n ****^* ppgupgj'. J8W ” * * “‘ oeTPLT* *T68T' CURRENT COLUMN FOR NONZERO DATA 
I C3C DO 17 BNE D0BUF4 OUIT IF NON-ZERO 

I C3E C6 6B_ DEC BUFCNT DECREMENT CQUNTIS ■ a ■ ■ .■ i wit m ' :rsr.v 


!_ua zzzz teJ. —‘■• T l ■ ‘ " - ‘‘ i F n ^ pgni e paAu iip rnocnn 


I C46 20 99 F7 
fC49 A3 53 
FC4B CS 33 


JSR , CRSRLF BACK UP CURSOR 

LDA COLCRB IF LOOCOL«RMAR«N. 00 UP I ROM 

CMP RMARONJ___ 


b3S 66 

“-*- ■■ l “— f 1 D0BUF2 LOOP UNLESS BUFCNT 0U8T WENT TO ZERO 


Vfil-4 

v>: .. 


IC53 DO E4 
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® l- DCl AS 77 ADC DELTAC | , .| i ,.mnii ii ■ ■'■■ '■ rr " ■ -y .'. .-a-:.. -y<y J ■r^i.u ; g,-,\;: f ^)yo~.'5iV::s.? : .Y-- ; -fr’yi' r <-‘] 

’- •■"• ■■ ii i -f . ■- - a-'-- ■ ' . ' *" 111 1 "~ KTA COLAC+1 


DRAMA CLC 
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